home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / U-User Group / (k)ua.d64 / dsp.hobie < prev    next >
Text File  |  2007-02-28  |  1KB  |  85 lines
  1. // DELETE "EXT.HOBIE"
  2. // SAVE   "EXT.HOBIE"
  3. //  BY ─AVID ╘URNER - 5/11/85
  4. //
  5. //DRAW HOBIE TRADEMARK INSIGNIA
  6. //
  7. ╨╥╧├ HOBIE ├╠╧╙┼─
  8.   ╒╙┼ GRAPHICS
  9.   BORDER(8)
  10.   BACKGROUND(2)
  11.   GRAPHICSCREEN(0)
  12.   PENCOLOR(7)
  13.   PLOTTEXT(100,179,"╚AVE A")
  14.   TEXTSTYLE(3,3,0,1)
  15.   PENCOLOR(8)
  16.   PLOTTEXT(90,145,"╚╧┬╔┼")
  17.   PENCOLOR(7)
  18.   TEXTSTYLE(1,1,0,1)
  19.   PLOTTEXT(220,155,"─AY")
  20.   HIDETURTLE
  21.   HOME
  22.   MOVETO(20,179)
  23.   SETHEADING(75)
  24.   FORWARD(21)
  25.   SETHEADING(130)
  26.   ARCL(30,45)
  27.   SETHEADING(210)
  28.   FORWARD(40)
  29.   SETHEADING(220)
  30.   ARCR(30,60)
  31.   LEFT(15)
  32.   SETHEADING(380)
  33.   FORWARD(10)
  34.   SETHEADING(95)
  35.   ARCL(25,47)
  36.   SETHEADING(39)
  37.   FORWARD(37)
  38.   SETHEADING(260)
  39.   FORWARD(10)
  40.   SETHEADING(250)
  41.   ARCR(37,42)
  42.   FORWARD(5)
  43.   FILL(23,138)
  44.   FILL(36,178)
  45.   MOVETO(90,182)
  46.   SETHEADING(245)
  47.   ARCL(60,10)
  48.   FORWARD(10)
  49.   ARCL(30,84)
  50.   SETHEADING(110)
  51.   ARCL(40,15)
  52.   FORWARD(10)
  53.   SETHEADING(90)
  54.   FORWARD(135)
  55.   SETHEADING(0)
  56.   FORWARD(3)
  57.   SETHEADING(270)
  58.   FORWARD(125)
  59.   SETHEADING(280)
  60.   FORWARD(5)
  61.   SETHEADING(285)
  62.   FORWARD(5)
  63.   SETHEADING(290)
  64.   FORWARD(5)
  65.   ARCR(10,60)
  66.   FORWARD(10)
  67.   ARCR(20,30)
  68.   SETHEADING(35)
  69.   FORWARD(15)
  70.   FILL(68,165)
  71.   MOVETO(65,145)
  72.   SETHEADING(300)
  73.   FORWARD(25)
  74.   ARCL(40,30)
  75.   SETHEADING(80)
  76.   FORWARD(10)
  77.   ARCR(40,45)
  78.   FORWARD(8)
  79.   FILL(60,157)
  80.   FILL(40,162)
  81. ┼╬─╨╥╧├ HOBIE
  82. //
  83. HOBIE
  84. ┼╬─ "╨RESS ╞5 TO SEE ╚OBIE"
  85.